home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.38 / wurzel15 / wurzel.p < prev    next >
Text File  |  1980-01-09  |  1KB  |  36 lines
  1. Program wurzelberechnung_durch_Halbierung;
  2.  
  3. VAR m,a,b,c,eps:LONGREAL;
  4.     tx:text;
  5.  
  6. BEGIN
  7.  reset(tx,'CON:0/50/600/150/Wurzelberechnung mit 15 Stellen Genauigkeit !');
  8.  writeln(tx);
  9.  writeln(tx,'Wurzelberechnung durch halbierung mit 15 Stellen Genauigkeit');
  10.  writeln(tx,'Written by Røgersøft 26.10.94  email: ujqc@rz.uni-karlsruhe.de');
  11.  writeln(tx);
  12.  writeln(tx,'Für nähere Hinweise readme Text lesen!');
  13.  writeln(tx);
  14.  write(tx,'Zu berechnende Wurzel eingeben (z.B.65): ');
  15.  readln(tx,c);
  16.  a:=trunc(sqrt(c))-1; { linke schranke }
  17.  b:=trunc(sqrt(c))+1; { rechte Schranke }
  18.  write(tx,'Genauigkeit angeben (z.B.0.0000000001):')
  19.  readln(tx,eps);
  20.  REPEAT
  21.   m:=(a+b)/2;
  22.   IF (m*m-c>=0) THEN b:=m
  23.                 ELSE a:=m;
  24.     UNTIL b-a<eps;
  25.  writeln(tx);
  26.  writeln(tx,' Linke Grenze: ',a);
  27.  writeln(tx,'Rechte Grenze: ',b);
  28.  writeln(tx,'     Mit sqrt: ',sqrt(c));
  29.  writeln(tx);
  30.  writeln(tx,' Greetings to: Diesel, Bombersoft, PackMAN ...');
  31.  writeln(tx);
  32.  write(tx,'< Return >')
  33.  read(tx,a);
  34.  close(tx);
  35. END;
  36.